home *** CD-ROM | disk | FTP | other *** search
/ Mac OS on the PowerPC Mic…rocessor - In Store Demo / Mac OS on the PowerPC Microprocessor.iso / MacOS / MacOS.dxr / 00076.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  731 b   |  30 lines
  1. global gMenu, gcurrchapternumber, gcurrlessonnumber, gMenuNumber, onIBM
  2.  
  3. on mouseDown
  4.   pushBtn()
  5.   if rollOver(17) then
  6.     if gMenu then
  7.       installMenu(0)
  8.       updateStage()
  9.       set gMenu to 0
  10.       if pictkind(gcurrchapternumber) <> 0 then
  11.         openpictfile(gcurrchapternumber)
  12.       end if
  13.       if smallscreen(gcurrchapternumber) then
  14.         showpreview(gcurrlessonnumber)
  15.       end if
  16.     else
  17.       installMenu(gMenuNumber)
  18.       set gMenu to 1
  19.       if onIBM then
  20.         if pictkind(gcurrchapternumber) <> 0 then
  21.           openpictfile(gcurrchapternumber)
  22.         end if
  23.         if smallscreen(gcurrchapternumber) then
  24.           showpreview(gcurrlessonnumber)
  25.         end if
  26.       end if
  27.     end if
  28.   end if
  29. end
  30.